home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / program.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  2.8 KB  |  60 lines
  1. DEFINITION MODULE Program;
  2. (*      File name: Program.def                                               *)
  3. (*      Creation : Auguest 1985                                              *)
  4. (*      Function : Create and terminate a proccess                           *)
  5. (*      By       : Morris Djavaheri                                          *)
  6. (*                                                                           *)
  7. (*
  8. *    Copyright (c) 1985,1986,1987,1988,1989 by
  9. *    ana-systems, Foster City, California.
  10. *    All Rights Reserved.
  11. *
  12. *    This software is furnished under a license and may be used and copied
  13. *    only  in accordance with  the  terms  of  such  license and  with the
  14. *    inclusion of the above copyright notice.  This software or  any other
  15. *    copies thereof may not be provided or otherwise made available to any
  16. *    other  person.   No title to and ownership of the  software is  herby
  17. *    transferred.
  18. *
  19. *    The information in this software is  subject to change without notice
  20. *    and  should  not be construed as a commitment by ana-systems.   No
  21. *    warranty is implied or expressed.
  22. *
  23. *   SCCID  = "1.3    10/8/86"; 
  24. *)
  25. (*      Modifcation History                                                  *)
  26. (*      Date            Who             Why                                  *)
  27. (*                                                                           *)
  28. FROM SYSTEM IMPORT ADDRESS;
  29. EXPORT QUALIFIED 
  30.    CallResult, ARGC,ARGSTRING,
  31.    Call ,Terminate, Spawnl;
  32.  
  33. TYPE 
  34.    CallResult = ( normalReturn,         (* program terminate normally *)
  35.                   programHalt,          (* halt executed              *)
  36.                   keyboardHalt,         (* Termintate by user break (^C*)
  37.                   missingProgram,       (* Subprogram not found       *)
  38.                   missingModule,        (* Library module not found   *)
  39.                   duplicateModule,      (* Duplicate Librayr module names *)
  40.                   versionError,         (* Moduler version error        *)
  41.                   codeError,            (* Code I/O Erorr or bad structer *)
  42.                   programCheck,         (* Range, arith,storage,string,..*)
  43.                   ioError,              (* User I/O error *)
  44.                   noProcess,            (* No more process is allowed *)
  45.                   noMemory,             (* Not enought memory of the process *)
  46.                   unkownError           (* unkown error *) );
  47.  
  48.   PROCEDURE ARGSTRING (ac :CARDINAL): ADDRESS;
  49.  
  50.   PROCEDURE Call ( VAR programName : ARRAY OF CHAR;
  51.                    VAR callResult  : CallResult);
  52.   
  53.   PROCEDURE Terminate (reason : CallResult);
  54.  
  55.   PROCEDURE Spawnl(VAR progname,arg0,arg1,arg2,arg3,arg4,arg5,arg6: 
  56.                          ARRAY OF CHAR): CallResult;
  57.   VAR
  58.    ARGC : CARDINAL;
  59. END Program.
  60.